home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / MIDNIGHT.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  512 b   |  14 lines
  1. 100  '*************************************************
  2. 110  '**  SUBROUTINE IN CASE YOU WANT SOMETHING TO   **
  3. 120  '** HAPPEN JUST AT MIDNIGHT (TIME$ MUST BE SET) **
  4. 130  '*************************************************
  5. 140  '
  6. 150  CLS
  7. 160  PRINT "START !"
  8. 170  '*************************************************
  9. 180  A$ = DATE$
  10. 190  WHILE A$ = DATE$
  11. 200  WEND
  12. 210  '*************************************************
  13. 220  PRINT "MIDNIGHT !
  14.